Garbo/Garbo.cdr/mac/hypercrd/hc1_2_x/mackun.sit/Mackun/É}ÉbÉNÉì1.0(ÉxÅ[É^î≈)/card_4844.txt

Text File | 1990-05-15 | 6KB | 304 lines

-- card: 4844 from stack: in.0(ÉxÅ[É^î≈)
-- bmap block id: 5055
-- flags: 0000
-- background id: 3816
-- name: ĽÅæ


-- part 1 (field)
-- low flags: 02
-- high flags: 0004
-- rect: left=132 top=48 right=75 bottom=259
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 16385
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: t1


-- part 2 (field)
-- low flags: 02
-- high flags: 0004
-- rect: left=131 top=106 right=133 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 16385
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: t2


-- part 3 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=200 top=157 right=193 bottom=273
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ôoÿ^
----- HyperTalk script -----
on mouseUp
  set the cursor to 4
  if card field "t1" is empty
  then
  answer "äøéöÉfÅ[É^Çì¸óÕǵǃâ∫Ç≥Ç¢" with "OK"
  exit mouseUp
end if
if card field "t2" is empty
then
answer "äøéöÇÃì«Ç›Çì¸óÕǵǃâ∫Ç≥Ç¢" with "OK"
exit mouseUp
end if

get XMackunRead(line 1 of card Field "t1")
if it is -1
then
answer "ÉpÉâÉÅÅ[É^ÇÃì¸óÕÇ™à·Ç¢Ç‹Ç∑" with "OK"
exit mouseUp
else
  if it is -2
  then
  answer "ÉpÉâÉÅÅ[É^êîÇ™àŸÇ»ÇËÇ‹Ç∑" with "OK"
  exit mouseUp
else
  if (it is "")
  then
  --èëÇ´çûÇ›
  get XMackunDic(line 1 of card Field "t1",line 1 of card Field "t2")
else
  if (it<0)
  then
  answer ("ÉtÉ@ÉCÉãÉGÉâÅ[ ("&&it&&")") with "OK"
  exit mouseUp
else
  --ÉfÅ[É^óLÇË
  put item 2 of it into card field "t2"
  answer "Ç∑Ç≈Ç…ìoò^Ç≥ÇÍǃǢNjÇ∑" with "OK"
  exit mouseUp
end if
end if
end if
end if
click at the loc of  card field "t1"
click at the loc of card field "t1"
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=17 top=231 right=253 bottom=160
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ÅnîΩô╟é▌é╛é╡
----- HyperTalk script -----
on mouseUp
  set the cursor to 4
  put empty into card field "t2"
  get XMackunRead(line 1 of card Field "t1")
  put item 2 of it into card field "t2"
  if it is -1
  then
  answer "ÉpÉâÉÅÅ[É^ÇÃì¸óÕÇ™à·Ç¢Ç‹Ç∑" with "OK"
else
  if it is -2
  then
  answer "ÉpÉâÉÅÅ[É^êîÇ™àŸÇ»ÇËÇ‹Ç∑" with "OK"
else
  if (it is "")
  then
  put it into card field "t2"
  answer ("ìoò^Ç≥ÇÍǃǢNjÇπÇÒ") with "OK"
else
  if (it<0)
  then
  answer ("ÉtÉ@ÉCÉãÉGÉâÅ[ ("&&it&&")") with "OK"
else

end if
end if
end if
end if
click at the loc of  card field "t1"
click at the loc of card field "t1"
end mouseUp





-- part 5 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=85 top=157 right=193 bottom=158
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Å┴ïÄ
----- HyperTalk script -----
on mouseUp
  set the cursor to 4
  put empty into card field "t2"
  get XMackunRead(line 1 of card Field "t1")
  if it is -1
  then
  answer "ÉpÉâÉÅÅ[É^ÇÃì¸óÕÇ™à·Ç¢Ç‹Ç∑" with "OK"
else
  if it is -2
  then
  answer "ÉpÉâÉÅÅ[É^êîÇ™àŸÇ»ÇËÇ‹Ç∑" with "OK"
else
  if (it is "")
  then
  put it into card field "t2"
  answer ("ìoò^Ç≥ÇÍǃǢNjÇπÇÒ") with "OK"
else
  if (it<0)
  then
  answer ("ÉtÉ@ÉCÉãÉGÉâÅ[ ("&&it&&")") with "OK"
else
  get XMackunDel(item 1 of it,"#")
end if
end if
end if
end if
click at the loc of  card field "t1"
click at the loc of card field "t1"
end mouseUp





-- part 7 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=197 top=232 right=254 bottom=340
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Æ¥éΘ
----- HyperTalk script -----
on mouseUp
  put item 2 to 200 of kanToRom(card field "t1") into card field "t2"
  MackunSpeech card field "t1",Mrate,Mpitch,Mrobot
end mouseUp





-- part 9 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=266 top=55 right=73 bottom=350
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 16384
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 10 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=342 top=135 right=153 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 16384
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 11 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=48 top=49 right=74 bottom=100
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 16385
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name:
----- HyperTalk script -----
on mouseUp
  click at the loc of  card field "t1"
  click at the loc of card field "t1"
end mouseUp



-- part 12 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=48 top=108 right=132 bottom=99
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 16385
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name:
----- HyperTalk script -----
on mouseUp
  click at the loc of  card field "t2"
  click at the loc of card field "t2"
end mouseUp



-- part contents for card part 9
----- text -----
(5ï∂éöà»ì‡)

-- part contents for card part 10
----- text -----
(Ç–ÇÁǙǻ18ï∂éöà»ì‡)

-- part contents for card part 11
----- text -----
äøéö

-- part contents for card part 12
----- text -----
ì«Ç›

-- part contents for card part 1
----- text -----
ǪÇÃëº

-- part contents for card part 2
----- text -----
ǪÇÃÇŸÇ©